home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_107659.txt < prev    next >
Encoding:
Text File  |  1990-08-14  |  1.5 KB  |  77 lines
  1. -- card: 107659 from stack: in
  2. -- bmap block id: 108406
  3. -- flags: 4000
  4. -- background id: 14423
  5. -- name: Task Statistics
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put char 1 to 3 of the long date & "," & item 2 to 3 of the abbrev date into card field "Date"
  9. end openCard
  10.  
  11.  
  12. -- part 2 (button)
  13. -- low flags: 00
  14. -- high flags: 0000
  15. -- rect: left=0 top=0 right=342 bottom=512
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: 
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   lock screen
  27.   go to first card of this background
  28.   unlock screen
  29. end mouseUp
  30.  
  31.  
  32.  
  33. -- part 3 (button)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=14 top=33 right=48 bottom=29
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 5068 / 5068
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: Close
  45. ----- HyperTalk script -----
  46. on mouseDown
  47.   set icon of me to "Close Box Hi"
  48. end mouseDown
  49.  
  50. on mouseLeave
  51.   set icon of me to "Close Box"
  52. end mouseLeave
  53.  
  54. on mouseUp
  55.   set icon of me to "Close Box"
  56.   pop card
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 4 (field)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=384 top=50 right=65 bottom=492
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 65535
  68. -- font id: 3
  69. -- text size: 9
  70. -- style flags: 0
  71. -- line height: 12
  72. -- part name: Date
  73.  
  74.  
  75. -- part contents for card part 4
  76. ----- text -----
  77. Mon, Sep 4, 1989